class point (x_init,y_init,z_init) =
object (s:'point)
  val mutable x:int=x_init
  val mutable y:int=y_init
  val mutable z:int=z_init
  method get_x=x
  method get_y=y
  method get_z=z
  method moveto (a,b,c) = x <- a; y <- b; z <- c 

  method str_coord = Printf.sprintf "%d,%d,%d" x y z
end
let make x y z= new point (x,y,z)
